﻿Public Class SCS0
    Inherits Base

#Region " Variables Privadas "
    Private m_NroSeguro As String
#End Region

#Region " Propiedades "
    Public Property NroSeguro() As String
        Get
            Return Right("000000000000000" & m_NroSeguro, 15)
        End Get
        Set(ByVal value As String)
            m_NroSeguro = Right("000000000000000" & value, 15)
        End Set
    End Property
#End Region

#Region " Métodos "
    Public Function ConsultaGeneralSeguros(ByVal MiNroSeguro As String) As String
        Dim MiSRM As SRM = New SRM()
        Dim MiRespuesta As String

        MiSRM.Nodo = Nodo
        MiSRM.Aplicacion = Aplicacion
        MiSRM.Mensaje = "123456789111144" & MiNroSeguro

        MiSRM.Invocar()

        If Mid(MiSRM.Respuesta, 15, 2) = "96" Then 'No existe seguro
            MiRespuesta = Mid(MiSRM.Respuesta, 15, 33)
            'ElseIf Mid(MiSRM.Respuesta, 15, 2) = "55" Then 'Problemas en Data de Entrada
            '    MiRespuesta = Mid(MiSRM.Respuesta, 15, 33)
            'ElseIf Mid(MiSRM.Respuesta, 15, 2) = "54" Then 'Operación Inválida
            '    MiRespuesta = Mid(MiSRM.Respuesta, 15, 33)
        Else
            MiRespuesta = MiSRM.Respuesta
        End If

        MiSRM = Nothing

        Return MiRespuesta
    End Function

    Public Function DatosSeguroAutomotriz(ByVal MiNroSeguro As String) As String
        Dim MiSRM As SRM = New SRM()
        Dim MiRespuesta As String

        MiSRM.Nodo = Nodo
        MiSRM.Aplicacion = Aplicacion
        MiSRM.Mensaje = "123456789111107" & MiNroSeguro

        MiSRM.Invocar()

        If Mid(MiSRM.Respuesta, 15, 2) = "96" Then 'No existe seguro
            MiRespuesta = Mid(MiSRM.Respuesta, 15, 33)
        ElseIf Mid(MiSRM.Respuesta, 15, 2) = "55" Then 'Problemas en Data de Entrada
            MiRespuesta = Mid(MiSRM.Respuesta, 15, 33)
        ElseIf Mid(MiSRM.Respuesta, 15, 2) = "54" Then 'Operación Inválida
            MiRespuesta = Mid(MiSRM.Respuesta, 15, 33)
        Else
            MiRespuesta = MiSRM.Respuesta
        End If

        MiSRM = Nothing

        Return MiRespuesta
    End Function
#End Region

#Region " Constructor(es) "
    Public Sub New(ByVal MiNodo As String)
        MyBase.New(MiNodo, "SCS0")
    End Sub
#End Region
End Class
